(mouse-major-mode-menu): Run activate-menubar-hook here.

diff --git a/lisp/mouse.el b/lisp/mouse.el
index bc5f8475b772b536660e0f4ad50984a30ec06596..5d55b3dfd0e9abbb1680184588c2c835b90b239d 100644 (file)
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -49,6 +49,8 @@
   ;; Switch to the window clicked on, because otherwise
   ;; the mode's commands may not make sense.
   (interactive "@e\nP")
+  ;; Let the mode update its menus first.
+  (run-hooks 'activate-menubar-hook)
   (let (;; This is where mouse-major-mode-menu-prefix
        ;; returns the prefix we should use (after menu-bar).
        ;; It is either nil or (SOME-SYMBOL).